100 REM KEYBOARD TEST FOR //E UPGRADED TO A GS AND WITHOUT NEW KEYBOARD
110 REM ROW 1 & 2 OF KEYS
120 DATA 27,49,50,51,52,53,54,55,56,57,48,45,61,127,9,81,87,69,82,84,89,85,73,79,80,91,93,92
130 REM ROW 3 & 4 OF KEYS
140 DATA 65,83,68,70,71,72,74,75,76,59,39,13,90,88,67,86,66,78,77,44,46,47
150 REM ROW 5 OF KEYS
160 DATA 96,1,32,2,8,21,10,11
170 PRINT CHR$(4);"PR#3": REM TURN ON 80 COL
180 PRINT CHR$(17): REM 40 COL ON
190 DIM N(60)
200 IE$ = CHR$(15) + CHR$(27): REM INVERSE + ALT CHAR SET
210 OFF$ = CHR$(14) + CHR$(24): REM NORMAL + REG CHAR SET
220 HOME
230 PRINT " Keyboard Test for //E upgraded to a //GS and w/o new keyboard."
240 PRINT : PRINT
250 PRINT " CAPS LOCK key should be down. Press keys, starting with ESC. Go across each row, pressing the keys shown below."
260 FOR I = 1 TO 57: READ N(I): NEXT I
270 VTAB 12
280 PRINT TAB( 4);"ESC";" ";
290 FOR I = 2 TO 13: PRINT CHR$(N(I));" ";
300 NEXT : PRINT "DELETE": PRINT
310 PRINT TAB( 4);"TAB";" ";
320 FOR I = 16 TO 28: PRINT CHR$(N(I));" ";: NEXT
330 PRINT : PRINT
340 HTAB 8: FOR I = 29 TO 39: PRINT CHR$(N(I));" ";: NEXT : PRINT "RETURN"
350 PRINT
360 HTAB 8: FOR I = 41 TO 50: PRINT CHR$(N(I));" ";: NEXT
370 PRINT : PRINT
380 PRINT TAB( 6);"` ";IE$;"A";OFF$;" space bar ";IE$;"@";OFF$;" ";IE$;"H";OFF$;" ";IE$;"U";OFF$;" ";IE$;"J";OFF$;" ";IE$;"K";OFF$
390 RESTORE
400 READ N
410 IF N = 27 THEN VTAB 12: HTAB 4
420 IF N = 9 THEN VTAB 14: HTAB 4
430 IF N = 65 THEN VTAB 16: HTAB 8
440 IF N = 90 THEN VTAB 18: HTAB 8
450 IF N = 96 THEN VTAB 20: HTAB 6
460 IF N = 1 THEN GOTO 630
470 IF N = 2 THEN GOTO 670
480 IF N = 8 THEN VTAB 20: HTAB 24: PRINT IE$;"H";: PRINT OFF$;
490 IF N = 21 THEN VTAB 20: HTAB 26: PRINT IE$;"U";: PRINT OFF$;
500 IF N = 10 THEN VTAB 20: HTAB 28: PRINT IE$;"J";: PRINT OFF$;
510 IF N = 11 THEN VTAB 20: HTAB 30: PRINT IE$;"K";: PRINT OFF$;
520 GET K$
530 IF ASC(K$) = N AND N = 8 THEN VTAB 20: HTAB 24: PRINT " ";: GOTO 400
540 IF ASC(K$) = N AND N = 21 THEN VTAB 20: HTAB 26: PRINT " ";: GOTO 400
550 IF ASC(K$) = N AND N = 10 THEN VTAB 20: HTAB 28: PRINT " ";: GOTO 400
560 IF ASC(K$) < >N THEN PRINT CHR$(7);: GOTO 520
570 BL$ = " "
580 IF N = 27 OR N = 9 OR N = 96 THEN BL$ = " "
590 IF N = 32 THEN BL$ = " "
600 IF N = 13 OR N = 127 THEN BL$ = " "
610 IF N = 11 THEN PRINT CHR$(21): HOME : VTAB 10: HTAB 10: PRINT "KEYBOARD OPERATIONAL": PRINT : PRINT : PRINT TAB( 9);"RETURNING TO MAIN MENU": PRINT CHR$(4);"RUN HELLO2"
620 PRINT BL$;: GOTO 400
630 REM OPEN/SOLID APPLE KEYS
640 FOR I = 1 TO 20000
650 IF PEEK( -16287) >127 THEN PRINT " ";: GOTO 400
660 NEXT
670 REM
680 FOR I = 1 TO 20000
690 IF PEEK( -16286) >127 THEN PRINT " ";: GOTO 400
